home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / biz / demo / Electrics_demo.lha / Install < prev    next >
Text File  |  1996-02-28  |  6KB  |  220 lines
  1. ;*----------------------------------------------------------*
  2. ;* Installer script for the Electrics V1.1 Digital Designer *
  3. ;*                                                          *
  4. ;* NAME: Install                                            *
  5. ;* DATE: February 10, 1996                                  *
  6. ;*----------------------------------------------------------*
  7.  
  8. (set DefaultDestination "Work:Electrics")
  9. (set FileSource         ""              )
  10. (set LibraryDirectory   "libs"          )
  11.  
  12. (complete 0)
  13.  
  14. ;*--------------------------------------------------------------*
  15. ;* Request a destination drawer (except on the Beginner level). *
  16. ;* Otherwise, FileDestination is set to the default drawer.     *
  17. ;*--------------------------------------------------------------*
  18.  
  19. (
  20.   set FileDestination
  21.   (
  22.     askdir (default DefaultDestination)
  23.            (newpath DefaultDestination)
  24.            (prompt "Electrics program files destination.")
  25.            (help "Destination Drawer\n\n"
  26.                  "The installer will copy all Electrics files into the "
  27.                  "selected Drawer (which may refer to a Volume or a Directory)."
  28.                  "  A new Drawer can be created, or an existing one can be "
  29.                  "chosen from the list.")
  30.   )
  31. )
  32.  
  33. ;*------------------------------------------------------*
  34. ;* If the destination drawer does not exist, create it. *
  35. ;*------------------------------------------------------*
  36.  
  37. (
  38.   if (= (exists FileDestination (noreq)) 0)
  39.   (
  40.     (
  41.       makedir FileDestination 
  42.             (prompt (cat "Creating the directory " FileDestination))
  43.             (help @makedir-help)
  44.             (infos)
  45.     )
  46.   )
  47. )
  48.  
  49. ;*--------------------------------------------------------*
  50. ;* Clean up any unnecessary files from previous versions. *
  51. ;*--------------------------------------------------------*
  52.  
  53. (run "delete " (tackon FileDestination "Electrics.Guide.#?"))
  54. (run "delete " (tackon FileDestination "Examples") "all")
  55.  
  56. ;*--------------------------------------*
  57. ;* Copy the Schematic program and icon. *
  58. ;*--------------------------------------*
  59.  
  60. (
  61.   copyfiles (source (tackon FileSource "Schematic"))
  62.             (dest FileDestination)
  63.             (infos)
  64. )
  65.  
  66. (complete 6)
  67.  
  68. ;*--------------------------------------*
  69. ;* Copy the Simulator program and icon. *
  70. ;*--------------------------------------*
  71.  
  72. (
  73.   copyfiles (source (tackon FileSource "Simulator"))
  74.             (dest FileDestination)
  75.             (infos)
  76. )
  77.  
  78. (complete 12)
  79.  
  80. ;*-----------------------------------*
  81. ;* Copy the Viewer program and icon. *
  82. ;*-----------------------------------*
  83.  
  84. (
  85.   copyfiles (source (tackon FileSource "Viewer"))
  86.             (dest FileDestination)
  87.             (infos)
  88. )
  89.  
  90. (complete 18)
  91.  
  92. ;*-----------------------------------*
  93. ;* Copy the Digits program and icon. *
  94. ;*-----------------------------------*
  95.  
  96. (
  97.   copyfiles (source (tackon FileSource "Digits"))
  98.             (dest FileDestination)
  99.             (infos)
  100. )
  101.  
  102. (complete 24)
  103.  
  104. ;*-----------------------------------------------------------------*
  105. ;* Copy the Project Manager program, icon, and configuration file. *
  106. ;*-----------------------------------------------------------------*
  107.  
  108. (
  109.   copyfiles (source (tackon FileSource "Project Manager"))
  110.             (dest FileDestination)
  111.             (infos)
  112. )
  113.  
  114. (complete 30)
  115.  
  116. (
  117.   copyfiles (source (tackon FileSource "Project.cfg"))
  118.             (dest FileDestination)
  119. )
  120.  
  121. (complete 36)
  122.  
  123. ;*--------------------------------------------------------*
  124. ;* Copy the ARexx Shell program, icons, and support file. *
  125. ;*--------------------------------------------------------*
  126.  
  127. (
  128.   copyfiles (source (tackon FileSource "ARexx Shell"))
  129.             (dest FileDestination)
  130.             (infos)
  131. )
  132.  
  133. (complete 42)
  134.  
  135. (
  136.   copyfiles (source (tackon FileSource "AShell.rexx"))
  137.             (dest FileDestination)
  138. )
  139.  
  140. (complete 48)
  141.  
  142. ;*---------------------------------------------*
  143. ;* Copy the Instructions, icon, and databases. *
  144. ;*---------------------------------------------*
  145.  
  146. (
  147.   copyfiles (source (tackon FileSource "Instructions"))
  148.             (dest FileDestination)
  149.             (infos)
  150. )
  151.  
  152. (complete 54)
  153.  
  154. (
  155.   copyfiles (source (tackon FileSource "Instruction_Database"))
  156.             (dest (tackon FileDestination "Instruction_Database"))
  157.             (all)
  158. )
  159.  
  160. (complete 60)
  161.  
  162. (
  163.   copyfiles (source (tackon FileSource "Picture_Database"))
  164.             (dest (tackon FileDestination "Picture_Database"))
  165.             (all)
  166. )
  167.  
  168. (complete 66)
  169.  
  170. ;*--------------------------------------------------*
  171. ;* Copy the ELEMENT, TTL, and Examples directories. *
  172. ;*--------------------------------------------------*
  173.  
  174. (
  175.   copyfiles (source (tackon FileSource "ELEMENT"))
  176.             (dest (tackon FileDestination "ELEMENT"))
  177.             (all)
  178. )
  179.  
  180. (complete 76)
  181.  
  182. (
  183.   copyfiles (source (tackon FileSource "TTL"))
  184.             (dest (tackon FileDestination "TTL"))
  185.             (all)
  186. )
  187.  
  188. (complete 86)
  189.  
  190. (
  191.   copyfiles (source (tackon FileSource "Examples"))
  192.             (dest (tackon FileDestination "Examples"))
  193.             (all)
  194. )
  195.  
  196. (complete 96)
  197.  
  198. ;*--------------------------------------------------------------*
  199. ;* Copy the 'reqtools.library' to LIBS:, unless a newer version *
  200. ;* is already present.                                          *
  201. ;*--------------------------------------------------------------*
  202.  
  203. (
  204.   copylib (source (tackon (tackon FileSource LibraryDirectory) "reqtools.library"))
  205.           (dest "LIBS:")
  206.           (prompt "Electrics requires the ReqTools library.")
  207.           (help "ReqTools Library\n\n"
  208.                 "Electrics requires the ReqTools library in order to run.  "
  209.                 "The file 'reqtools.library' will be copied to the LIBS:"
  210.                 "directory if it is not already present.  If an older version"
  211.                 "is present, it will be replaced with a newer version.")
  212.           (confirm)  
  213. )
  214.  
  215. (complete 100)
  216.  
  217. (set @default-dest FileDestination)
  218.  
  219. (exit)
  220.